home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 6 / FM Towns Free Software Collection 6.iso / data / pvap317 / pvapview.plp < prev    next >
Text File  |  1993-07-08  |  19KB  |  670 lines
  1. /************************************************************************
  2. *    ログ参照                            *
  3. ************************************************************************/
  4. /*    指定ディレクトリのサブディレクトリ名を返す    */
  5. %subdir{
  6.     [dir,sdir]
  7.     case    (@nochar(dir)==3,
  8.         {Yes},    {im(dir|sdir)},
  9.         {No},    {im(dir|{\}|sdir)});
  10. };
  11.  
  12. %ViewLOG{
  13.     [logdir,memono]
  14.     fn:=@tail(logdir,{\});
  15.     CloseAllMemo;
  16.     loop({
  17.     dispoff({Yes});
  18.     command({dir }|logdir|{>}|TEMPPATH|{\_mopdir.tmp});
  19.     dispoff({No});
  20.     %lineno @noline(@read(TEMPPATH|{\_mopdir.tmp}));
  21.     case(    (@nochar(logdir)!=3&&lineno>9)||
  22.         (@nochar(logdir)==3&&lineno>7),
  23.         {Yes},Viewlog1,
  24.         {No},    {SNDMSG({kaknin_f.snd});
  25.             select(logdir|{ は空です},99999,{im({No})},
  26.                 { 確認 },{im({No})})});
  27.     });
  28.     /*    ログ参照に使用したメモの削除処理    */
  29.     loop({
  30.     case(@mcheck>=memono,{Yes},{mclose(3)});
  31.     im(@mcheck>=memono);
  32.     });
  33.     CloseAllMemo;
  34.     loop({
  35.     case    (@mlast>=memono,
  36.         {Yes},    {case(@mcheck!=@mlast,{Yes},{mopen(@mlast)});
  37.             mclose(3);
  38.             im({Yes})},
  39.         {No},    {im({No})});
  40.     });
  41.     setcdir(DIR1);
  42.     };
  43.  
  44. /*    １ログファイルの表示処理    */
  45. %Select{
  46.     %LineNo @xlinenum;%MemoLine @nolmemo(memono);
  47.     %line1    @case    (LineNo>MemoLine,
  48.             {Yes},{im(@memo(memono,MemoLine,1))},
  49.             {No},{case    (LineNo<=0,
  50.                     {Yes},{im(@memo(memono,1,1))},
  51.                     {No},{im(@memo(memono,LineNo,1))})});
  52.     case    (@body(line1,{<},{>})={DIR},
  53.         {Yes},    {ViewLOG(@subdir(logdir,
  54.             @head(@getchar(line1,1,8),{ })),memono+1)},
  55.         {No},
  56.         {case    (@getchar(line1,10,3)<>{   },
  57.             {Yes},
  58.                 {LOGFILE:=@subdir(logdir,
  59.                  @head(@getchar(line1,1,8),{ })|{.}|
  60.                  @head(@getchar(line1,10,3),{ }))},
  61.             {No},
  62.                 {LOGFILE:=@subdir(logdir,
  63.                  @head(@getchar(line1,1,8),{ }))});
  64.                 %m1    memono+1;
  65.                 CloseAllMemo;
  66.                 case(@mlast>=m1,{Yes},{mclear(m1)});
  67.                 mread(LOGFILE,m1);mopen(m1,0,21,639,459,{w});
  68.                 loop({
  69.                 footnote({終了削除更新発言}|
  70.                     {ﾒｰﾙ OSL1LIB1OSL2LIB2解石},{b});
  71.                 waitx();
  72.                 case(@xtype,
  73.                 101,
  74.                 {CloseAllMemo;footnote({});im({No})},
  75.                 201,
  76.                 {CloseAllMemo;footnote({});im({No})},
  77.                 102,delLOG,202,delLOG,
  78.                 103,updLOG,203,updLOG,
  79.                 104,{saymes},204,{saymes},
  80.                 105,{TMAIL(m1)},
  81.                 205,{TMAIL(m1)},
  82.                 106,{downOSL},
  83.                 206,{downOSL},
  84.                 107,{downLIB},
  85.                 207,{downLIB},
  86.                 108,{downCUGOSL},
  87.                 208,{downCUGOSL},
  88.                 109,{downCUGLIB},
  89.                 209,{downCUGLIB},
  90.                 110,{ISH},
  91.                 210,{ISH},,{im({Yes})});
  92.                 })});
  93.     im({Yes});
  94. };
  95.  
  96. /*    ログファイル名の変更処理    */
  97. %Rename{
  98.     footnote({ファイル名を変更しています});
  99.     %LineNo @xlinenum;
  100.     %MemoLine @nolmemo(memono);
  101.     %line1    @case    (LineNo>MemoLine,
  102.             {Yes},    {im(@memo(memono,MemoLine,1))},
  103.             {No},    {case    (LineNo<=0,
  104.                     {Yes},{im(@memo(memono,1,1))},
  105.                     {No},{im(@memo(memono,LineNo,1))})});
  106.     case    (@body(line1,{<},{>})={DIR},
  107.         {Yes},    {SNDMSG({kaknin_f.snd});
  108.             select({ディレクトリ名は変更できません},
  109.                 99999,{im({No})},
  110.                 { 確認 },{im({No})})},
  111.         {No},    {var file [64];
  112.             case    (@getchar(line1,10,3)<>{   },
  113.                 {Yes},{file:=@subdir(logdir,
  114.                     @head(@getchar(line1,1,8),{ })|
  115.                     {.}|@head(@getchar(line1,10,3),{ }))},
  116.                 {No},{file:=@subdir(logdir,
  117.                     @head(@getchar(line1,1,8),{ }))});
  118.             SNDMSG({nyuryo_f.snd});
  119.             footnote({新しいファイル名を入力して下さい});
  120.             %file2    @input({新しいファイル名を入力して下さい},,
  121.                 @tail(file,{\}));
  122.             footnote({ファイル名を変更しています});
  123.             dispoff({Yes});
  124.             command({rename }|file|{ }|file2);
  125.             command({dir }|logdir|{>}|TEMPPATH|{\_mopdir.tmp});
  126.             dispoff({No});
  127.             CloseAllMemo;
  128.             case(@mlast>=memono,{Yes},{mclear(memono)});
  129.             madd(memono,@read(TEMPPATH|{\_mopdir.tmp},7,lineno-9));
  130.             mopen(memono,0,21,639,459,{r})});
  131.     im({Yes});
  132. };
  133.  
  134. /*    ログファイルの複写処理    */
  135. %Copy{
  136.     footnote({ファイルを複写します});
  137.     %LineNo @xlinenum;
  138.     %MemoLine @nolmemo(memono);
  139.     %line1    @case    (LineNo>MemoLine,
  140.             {Yes},    {im(@memo(memono,MemoLine,1))},
  141.             {No},    {case    (LineNo<=0,
  142.                     {Yes},{im(@memo(memono,1,1))},
  143.                     {No},{im(@memo(memono,LineNo,1))})});
  144.     case    (@body(line1,{<},{>})={DIR},
  145.         {Yes},    {SNDMSG({kaknin_f.snd});
  146.             select({ディレクトリは複写できません},
  147.                 99999,{im({No})},
  148.                 { 確認 },{im({No})})},
  149.         {No},    {case    (@getchar(line1,10,3)<>{   },
  150.                 {Yes},    {LOGFILE:=@subdir(logdir,
  151.                     @head(@getchar(line1,1,8),{ })|
  152.                     {.}|@head(@getchar(line1,10,3),{ }))},
  153.                 {No},    {LOGFILE:=@subdir(logdir,
  154.                     @head(@getchar(line1,1,8),{ }))});
  155.             SNDMSG({erande_f.snd});
  156.             footnote({複写先のファイルを指定して下さい});
  157.             %file2    @filesel;
  158.             footnote({ファイルを複写します});
  159.             dispoff({Yes});
  160.             command({copy }|LOGFILE|{ }|file2);
  161.             dispoff({No})});
  162.     im({Yes});
  163. };
  164.  
  165. /*    ディレクトリ表示と選択処理    */
  166. %Viewlog1{
  167.     CloseAllMemo;
  168.     case(@mlast>=memono,{Yes},{mclear(memono)});
  169.     case    (@nochar(logdir)==3,
  170.         {Yes},{madd(memono,@read(TEMPPATH|{\_mopdir.tmp},5,lineno-7));
  171.             setcdir(logdir)},
  172.         {No},{madd(memono,@read(TEMPPATH|{\_mopdir.tmp},7,lineno-9));
  173.             setcdir(logdir)});
  174.     mopen(memono,0,21,639,459,{r});
  175.     SNDMSG({erande_f.snd});
  176.     footnote({終了選択改名複写},{b});
  177.     waitx(60);
  178.     case    (@xtype,
  179.         memono,Select,
  180.         101,{im({No})},    201,{im({No})},
  181.         102,Select,    202,Select,
  182.         103,Rename,    203,Rename,
  183.         104,Copy,    204,Copy,
  184.         ,{im({Yes})});
  185. };
  186.  
  187. /*    表示中のファイル内のＩＳＨデータを解石する    */
  188. %ISH{
  189.     %cdir    @getcdir;
  190.     footnote({解石ﾌｧｲﾙを保存するﾃﾞｨﾚｸﾄﾘへ移動して右ｸﾘｯｸして下さい});
  191.     filesel;
  192.     footnote({ＩＳＨデータ解石中});
  193.     command({ISH }|LOGFILE);
  194.     setcdir(cdir);
  195. };
  196.  
  197. /*    ログファイルの削除処理    */
  198. %delLOG{
  199.     footnote({ログファイルを削除します});
  200.     SNDMSG({kaknin_f.snd});
  201.     select({現在表示しているログファイルを削除します},
  202.         99999,{im({Yes})},
  203.         {  削除する  },    {CloseAllMemo;
  204.                 delfile(LOGFILE);
  205.                 im({No})},
  206.         { 削除しない },    {im({Yes})});
  207. };
  208.  
  209. /*    ログファイルの更新処理    */
  210. %updLOG    {
  211.     footnote({ログファイルを更新します});
  212.     SNDMSG({kaknin_f.snd});
  213.     select({現在表示しているログファイルを更新します},
  214.         99999,{im({Yes})},
  215.         {  更新する  },    {CloseAllMemo;
  216.                 delfile(LOGFILE);
  217.                 mwrite(LOGFILE,memono+1);
  218.                 dispoff({Yes});
  219.                 command({dir }|logdir|{>}|TEMPPATH|
  220.                     {\_mopdir.tmp});
  221.                 dispoff({No});
  222.                 im({No})},
  223.         { 更新しない },{im({Yes})});
  224. };
  225.  
  226. /*    発言場所選択    */
  227. %saymes{
  228.     SNDMSG({erande_f.snd});
  229.     footnote({発言する場所の種類を選択して下さい});
  230.     select({発言する場所の種類を選択して下さい},99999,,
  231.         {   ＳＩＧ   },{saySIG},
  232.         {   ＢＢＳ   },{sayMES1(m1,{ＢＢＳ})},
  233.         {   ＣＵＧ   },{sayCUG},
  234.         { ＯＬＴ広場 },{sayMES3(m1)});
  235. };
  236. %saySIG{
  237.     SNDMSG({erande_f.snd});
  238.     footnote({発言する場所の種類を選択して下さい});
  239.     select({発言する場所の種類を選択して下さい},99999,,
  240.         { フォーラム },{sayMES1(m1,{フォーラム})},
  241.         {   会議室   },{sayMES1(m1,{ＳＩＧ内会議室})});
  242. };
  243. %sayCUG{
  244.     SNDMSG({erande_f.snd});
  245.     footnote({発言する場所の種類を選択して下さい});
  246.     select({発言する場所の種類を選択して下さい},99999,,
  247.         {   掲示板   },{sayMES2(m1,{ＣＵＧ内掲示板})},
  248.         {   会議室   },{sayMES2(m1,{ＣＵＧ内会議室})});
  249. };
  250.  
  251. /*    ＳＩＧ・ＢＢＳへの発言作成処理    */
  252. %sayMES1{
  253.     [memono,WHERE]
  254.     %savememo{
  255.     [memono]
  256.     var jumpcode[100];
  257.     var forumnum[100];
  258.     case    (SAVE={JUMPCODE},
  259.         {Yes},    {jumpcode:=@tail(@getcdir,{\})});
  260.     case    (SAVE={BOARD},
  261.         {Yes},    {case    (WHERE,
  262.                 {フォーラム},
  263.                 {jumpcode:=@body(@getcdir,LOGPATH|{\},{\FORUM});
  264.                 forumnum:=@tail(@getcdir,{\})},
  265.                 {ＳＩＧ内会議室},
  266.                 {jumpcode:=@body(@getcdir,LOGPATH|{\},{\KAIGI});
  267.                 forumnum:=@tail(@getcdir,{\})},
  268.                 {ＢＢＳ},
  269.                 {jumpcode:=@body(@getcdir,LOGPATH|{\},{\});
  270.                 forumnum:=@tail(@getcdir,{\})})});
  271.     SNDMSG({nyuryo_f.snd});
  272.     %a    @plane(    {c}|WHERE|{送信予約\n}|
  273.             {tｼﾞｬﾝﾌﾟｺｰﾄﾞ /1234567890\n}|
  274.             {tボード番号 /12\n}|
  275.             {tタイトル   /\n}|
  276.             {s/ 登録 / 取消 \n},jumpcode,forumnum);
  277.     %JUMP    @head(@getline(a,1,1),{\n});
  278.     %NUMBER    @head(@getline(a,2,1),{\n});
  279.     %TITLE    @head(@getline(a,3,1),{\n});
  280.     %ok    @head(@getline(a,4,1),{\n});
  281.     case    (ok==1,
  282.         {Yes},    {case    (@nochar(TITLE)>={60},
  283.                 {No},
  284.                 {footnote(WHERE|{への送信文書}|
  285.                     {の作成を行います});
  286.                 %file1 @crefile(TEMPPATH,{res});
  287.                 case(@mcheck!=0,{Yes},{mclose(1)});
  288.                 mwrite(TEMPPATH|{\}|file1,memono+1);
  289.                 mopen(memono+1,0,241,639,459,{w});
  290.                 %res1    WHERE|{/}|JUMP|{/}|NUMBER|{/}|
  291.                     TITLE|{/}|
  292.                     TEMPPATH|{\}|file1|{\n};
  293.                 write(TEMPPATH|{\PVAPUP.DAT},res1);
  294.                 case(@mcheck!=memono+1,{Yes},{mopen(memono+1)});
  295.                 mclose(3);
  296.                 CloseAllMemo;
  297.                 mopen(memono,0,21,639,459,{w})},
  298.                 {Yes},
  299.                 {SNDMSG({okasi_f.snd});
  300.                 select({タイトルの文字数が多すぎます}|
  301.                     {（全角で３０文字まで）},
  302.                     99999,{im({Yes})},
  303.                     { 確認 },{im({Yes})})})},
  304.         {No},    {im({Yes})});
  305.     };
  306.     footnote(WHERE|{への送信文書の作成を行います});
  307.     OpenMemo(memono);
  308.     loop    ({
  309.     footnote({終了取消清書},{b});
  310.     waitx();
  311.     case    (@xtype,
  312.         101,{savememo(memono)},
  313.         201,{savememo(memono)},
  314.         102,{cancel(memono)},
  315.         202,{cancel(memono)},
  316.         103,{rewrite(memono)},
  317.         203,{rewrite(memono)},
  318.         ,{im({Yes})});
  319.     });
  320.     im({Yes});
  321. };
  322.  
  323. /*    ＣＵＧへの発言作成処理    */
  324. %sayMES2{
  325.     [memono,WHERE]
  326.     %savememo{
  327.     [memono]
  328.     var jumpcode[100];
  329.     var forumnum[100];
  330.     case    (SAVE={JUMPCODE},
  331.         {Yes},    {jumpcode:=@tail(@getcdir,{\})});
  332.     case    (SAVE={BOARD},
  333.         {Yes},    {case    (WHERE,
  334.                 {ＣＵＧ内掲示板},
  335.                 {jumpcode:=@body(@getcdir,LOGPATH|{\},{\KEIJI});
  336.                 forumnum:=@tail(@getcdir,{\})},
  337.                 {ＳＩＧ内会議室},
  338.                 {jumpcode:=@body(@getcdir,LOGPATH|{\},{\KAIGI});
  339.                 forumnum:=@tail(@getcdir,{\})})});
  340.     SNDMSG({nyuryo_f.snd});
  341.     %a    @plane(    {c}|WHERE|{送信予約\n}|
  342.             {tＣＵＧ名    /1234567890\n}|
  343.             {tパスワード  /1234567890\n}|
  344.             {tﾒｲﾝﾒﾆｭｰ番号 /12\n}|
  345.             {tボード番号  /12\n}|
  346.             {tタイトル    /\n}|
  347.             {s/ 登録 / 取消 \n},jumpcode,,,forumnum);
  348.     %JUMP    @head(@getline(a,1,1),{\n});
  349.     %PASS    @head(@getline(a,2,1),{\n});
  350.     %MAINNUM@head(@getline(a,3,1),{\n});
  351.     %NUMBER    @head(@getline(a,4,1),{\n});
  352.     %TITLE    @head(@getline(a,5,1),{\n});
  353.     %ok    @head(@getline(a,6,1),{\n});
  354.     case    (ok==1,
  355.         {Yes},    {case    (@nochar(TITLE)>={60},
  356.                 {No},
  357.                 {footnote(WHERE|{への送信文書}|
  358.                     {の作成を行います});
  359.                 %file1 @crefile(TEMPPATH,{res});
  360.                 case(@mcheck!=0,{Yes},{mclose(1)});
  361.                 mwrite(TEMPPATH|{\}|file1,memono+1);
  362.                 mopen(memono+1,0,241,639,459,{w});
  363.                 %res1    WHERE|{/}|JUMP|{/}|PASS|{/}|
  364.                     MAINNUM|{/}|NUMBER|{/}|TITLE|{/}|
  365.                     TEMPPATH|{\}|file1|{\n};
  366.                 write(TEMPPATH|{\PVAPUP.DAT},res1);
  367.                 case(@mcheck!=memono+1,{Yes},{mopen(memono+1)});
  368.                 mclose(3);
  369.                 CloseAllMemo;
  370.                 mopen(memono,0,21,639,459,{w})},
  371.                 {Yes},
  372.                 {SNDMSG({okasi_f.snd});
  373.                 select({タイトルの文字数が多すぎます}|
  374.                     {（全角で３０文字まで）},
  375.                     99999,{im({Yes})},
  376.                     { 確認 },{im({Yes})})})},
  377.         {No},    {im({Yes})});
  378.     };
  379.     footnote(WHERE|{への送信文書の作成を行います});
  380.     OpenMemo(memono);
  381.     loop    ({
  382.     footnote({終了取消清書},{b});
  383.     waitx();
  384.     case    (@xtype,
  385.         101,{savememo(memono)},
  386.         201,{savememo(memono)},
  387.         102,{cancel(memono)},
  388.         202,{cancel(memono)},
  389.         103,{rewrite(memono)},
  390.         203,{rewrite(memono)},
  391.         ,{im({Yes})});
  392.     });
  393.     im({Yes});
  394. };
  395.  
  396. /*    ＯＬＴ広場への発言作成処理    */
  397. %sayMES3{
  398.     [memono]
  399.     %savememo{
  400.     [memono]
  401.     SNDMSG({nyuryo_f.snd});
  402.     %a    @plane(    {cＯＬＴ広場送信予約\n}|
  403.             {tタイトル /\n}|
  404.             {s/ 登録 / 取消 \n});
  405.     %TITLE    @head(@getline(a,1,1),{\n});
  406.     %ok    @head(@getline(a,2,1),{\n});
  407.     case    (ok==1,
  408.         {Yes},    {case    (@nochar(TITLE)>={60},
  409.                 {No},
  410.                 {footnote({ＯＬＴ広場への送信文書}|
  411.                     {の作成を行います});
  412.                 %file1 @crefile(TEMPPATH,{res});
  413.                 case(@mcheck!=0,{Yes},{mclose(1)});
  414.                 mwrite(TEMPPATH|{\}|file1,memono+1);
  415.                 mopen(memono+1,0,241,639,459,{w});
  416.                 %res1    {ＯＬＴ広場/}|TITLE|{/}|
  417.                     TEMPPATH|{\}|file1|{\n};
  418.                 write(TEMPPATH|{\PVAPUP.DAT},res1);
  419.                 case(@mcheck!=memono+1,{Yes},{mopen(memono+1)});
  420.                 mclose(3);
  421.                 CloseAllMemo;
  422.                 mopen(memono,0,21,639,459,{w})},
  423.                 {Yes},
  424.                 {SNDMSG({okasi_f.snd});
  425.                 select({タイトルの文字数が多すぎます}|
  426.                     {（全角で３０文字まで）},
  427.                     99999,{im({Yes})},
  428.                     { 確認 },{im({Yes})})})},
  429.         {No},    {im({Yes})});
  430.     };
  431.     footnote({ＯＬＴ広場への送信文書の作成を行います});
  432.     OpenMemo(memono);
  433.     loop    ({
  434.     footnote({終了取消清書},{b});
  435.     waitx();
  436.     case    (@xtype,
  437.         101,{savememo(memono)},
  438.         201,{savememo(memono)},
  439.         102,{cancel(memono)},
  440.         202,{cancel(memono)},
  441.         103,{rewrite(memono)},
  442.         203,{rewrite(memono)},
  443.         ,{im({Yes})});
  444.     });
  445.     im({Yes});
  446. };
  447.  
  448. /*    テキストメール作成処理    */
  449. %TMAIL{
  450.     [memono]
  451.     %savememo{
  452.     [memono]
  453.     SNDMSG({nyuryo_f.snd});
  454.     %a    @plane(    {cテキストメール送信予約\n}|
  455.             {t送信先ＩＤ /\n}|
  456.             {c（複数のＩＤに送信する場合は｢,｣で区切って下さい）\n}|
  457.             {tタイトル   /12345678901234567890}|
  458.             {12345678901234567890\n}|
  459.             {t送信日     /123456\n}|
  460.             {c（例 920428  92年4月28日に送信する場合）\n}|
  461.             {rコマンド   /ＢＣ /無し\n}|
  462.             {s/ 登録 / 取消 \n},);
  463.     %SENDID    @head(@getline(a,1,1),{\n});
  464.     %TITLE    @head(@getline(a,2,1),{\n});
  465.     %AD    @head(@getline(a,3,1),{\n});
  466.     %MAILCOM@case    (@head(@getline(a,4,1),{\n}),
  467.             { 1},{im({BC})},
  468.             { 2},);
  469.     %ok    @head(@getline(a,5,1),{\n});
  470.     case    (ok==1,
  471.         {Yes},    {footnote({テキストメールの作成を行います});
  472.             %file1 @crefile(TEMPPATH,{res});
  473.             case(@mcheck!=0,{Yes},{mclose(1)});
  474.             mwrite(TEMPPATH|{\}|file1,memono+1);
  475.             mopen(memono+1,0,241,639,459,{w});
  476.             %res1    {テキストメール/}|
  477.                 SENDID|{/}|AD|{/}|TITLE|{/}|
  478.                 MAILCOM|{/}|TEMPPATH|{\}|file1|{\n};
  479.             write(TEMPPATH|{\PVAPUP.DAT},res1);
  480.             case(@mcheck!=memono+1,{Yes},{mopen(memono+1)});
  481.             mclose(3);
  482.             CloseAllMemo;
  483.             mopen(memono,0,21,639,459,{w})},
  484.         {No},    {im({Yes})});
  485.     };
  486.     footnote({テキストメールの作成を行います});
  487.     OpenMemo(memono);
  488.     loop    ({
  489.     footnote({終了取消清書},{b});
  490.     waitx();
  491.     case    (@xtype,
  492.         101,{savememo(memono)},
  493.         201,{savememo(memono)},
  494.         102,{cancel(memono)},
  495.         202,{cancel(memono)},
  496.         103,{rewrite(memono)},
  497.         203,{rewrite(memono)},
  498.         ,{im({Yes})});
  499.     });
  500.     im({Yes});
  501. };
  502.  
  503. /*    ＳＩＧ内ＯＳＬからのダウンロード予約作成処理    */
  504. %downOSL{
  505.     SNDMSG({nyuryo_f.snd});
  506.     %a    @plane(    {cＳＩＧ内ＯＳＬダウンロード予約\n}|
  507.             {tＳＩＧ名     /1234567890\n}|
  508.             {tＯＳＬ番号   /12\n}|
  509.             {tファイル番号 /123\n}|
  510.             {s/ 登録 / 取消 \n});
  511.     %JUMP    @head(@getline(a,1,1),{\n});
  512.     %OSLNUM    @head(@getline(a,2,1),{\n});
  513.     %DOWNNUM@head(@getline(a,3,1),{\n});
  514.     %ok    @head(@getline(a,4,1),{\n});
  515.     case    (ok==1,
  516.         {Yes},    {%res1 {ＳＩＧ内ＯＳＬ/}|
  517.                 JUMP|{/}|OSLNUM|{/}|DOWNNUM|{\n};
  518.             write(TEMPPATH|{\PVAPDOWN.DAT},res1);});
  519.     case(@mcheck!=memono+1,{Yes},{mopen(memono+1)});
  520.     im({Yes});
  521. };
  522.  
  523. /*    ＳＩＧ内ライブラリからのダウンロード予約作成処理    */
  524. %downLIB{
  525.     SNDMSG({nyuryo_f.snd});
  526.     %a    @plane(    {cＳＩＧ内ライブラリダウンロード予約\n}|
  527.             {tＳＩＧ名       /1234567890\n}|
  528.             {tライブラリ番号 /12\n}|
  529.             {t情報番号       /123\n}|
  530.             {s/ 登録 / 取消 \n});
  531.     %JUMP    @head(@getline(a,1,1),{\n});
  532.     %LIBNUM    @head(@getline(a,2,1),{\n});
  533.     %DOWNNUM@head(@getline(a,3,1),{\n});
  534.     %ok    @head(@getline(a,4,1),{\n});
  535.     case    (ok==1,
  536.         {Yes},    {%res1 {ＳＩＧ内ライブラリ/}|
  537.                 JUMP|{/}|LIBNUM|{/}|DOWNNUM|{\n};
  538.             write(TEMPPATH|{\PVAPDOWN.DAT},res1);});
  539.     case(@mcheck!=memono+1,{Yes},{mopen(memono+1)});
  540.     im({Yes});
  541. };
  542.  
  543. /*    ＣＵＧ内ＯＳＬからのダウンロード予約作成処理    */
  544. %downCUGOSL{
  545.     SNDMSG({nyuryo_f.snd});
  546.     %a    @plane(    {cＣＵＧ内ＯＳＬダウンロード予約\n}|
  547.             {tＣＵＧ名     /1234567890\n}|
  548.             {tパスワード   /1234567890\n}|
  549.             {tﾒｲﾝﾒﾆｭｰ番号  /12\n}|
  550.             {tＯＳＬ番号   /12\n}|
  551.             {tファイル番号 /123\n}|
  552.             {s/ 登録 / 取消 \n});
  553.     %JUMP    @head(@getline(a,1,1),{\n});
  554.     %PASS    @head(@getline(a,2,1),{\n});
  555.     %MAINNUM@head(@getline(a,3,1),{\n});
  556.     %OSLNUM    @head(@getline(a,4,1),{\n});
  557.     %DOWNNUM@head(@getline(a,5,1),{\n});
  558.     %ok    @head(@getline(a,6,1),{\n});
  559.     case    (ok==1,
  560.         {Yes},    {%res1 {ＣＵＧ内ＯＳＬ/}|
  561.                 JUMP|{/}|PASS|{/}|MAINNUM|{/}|
  562.                 OSLNUM|{/}|DOWNNUM|{\n};
  563.             write(TEMPPATH|{\PVAPDOWN.DAT},res1);});
  564.     case(@mcheck!=memono+1,{Yes},{mopen(memono+1)});
  565.     im({Yes});
  566. };
  567.  
  568. /*    ＣＵＧ内ライブラリからのダウンロード予約作成処理    */
  569. %downCUGLIB{
  570.     SNDMSG({nyuryo_f.snd});
  571.     %a    @plane(    {cＣＵＧ内ライブラリダウンロード予約\n}|
  572.             {tＣＵＧ名       /1234567890\n}|
  573.             {tパスワード     /1234567890\n}|
  574.             {tﾒｲﾝﾒﾆｭｰ番号    /12\n}|
  575.             {tライブラリ番号 /12\n}|
  576.             {t情報番号       /123\n}|
  577.             {s/ 登録 / 取消 \n});
  578.     %JUMP    @head(@getline(a,1,1),{\n});
  579.     %PASS    @head(@getline(a,2,1),{\n});
  580.     %MAINNUM@head(@getline(a,3,1),{\n});
  581.     %LIBNUM    @head(@getline(a,4,1),{\n});
  582.     %DOWNNUM@head(@getline(a,5,1),{\n});
  583.     %ok    @head(@getline(a,6,1),{\n});
  584.     case    (ok==1,
  585.         {Yes},    {%res1 {ＣＵＧ内ライブラリ/}|
  586.                 JUMP|{/}|PASS|{/}|MAINNUM|{/}|
  587.                 LIBNUM|{/}|DOWNNUM|{\n};
  588.             write(TEMPPATH|{\PVAPDOWN.DAT},res1);});
  589.     case(@mcheck!=memono+1,{Yes},{mopen(memono+1)});
  590.     im({Yes});
  591. };
  592.  
  593. /*    アップ用文書作成用メモをオープンする    */
  594. %OpenMemo{
  595.     [memono]
  596.     CloseAllMemo;
  597.     mopen(memono,0,21,639,240,{w});
  598.     mclose(1);
  599.     madd(memono+1,{\n});
  600.     mclear(memono+1);
  601.     mopen(memono+1,0,241,639,459,{w});
  602.     };
  603.  
  604. /*    アップ用文書を清書する    */
  605. %rewrite{
  606.     [memono]
  607.     footnote({メモ}|memono+1|{を清書しています});
  608.     CloseAllMemo;
  609.     setcdir2(DIR1);
  610.     dispoff({Yes});
  611.     command({del }|TEMPPATH|{\_moptext.tmp});
  612.     command({del }|TEMPPATH|{\_moptext});
  613.     mwrite(TEMPPATH|{\_moptext.tmp},memono+1);
  614.     setcdir(TEMPPATH);
  615.     case    (DIR2={},
  616.         {No},    {command(DIR2|{\txf -i _moptext.tmp -o _moptext})},
  617.         {Yes},    {command({txf -i _moptext.tmp -o _moptext })});
  618.     dispoff({No});
  619.     case    (@filechk(TEMPPATH|{\_moptext}),
  620.         {Yes},    {mclear(memono+1);
  621.             mread(TEMPPATH|{\_moptext},memono+1);
  622.             mopen(memono,0,21,639,240,{w});
  623.             mclose(1);
  624.             mopen(memono+1,0,241,639,459,{w});},
  625.         {No},    {SNDMSG({kaknin_f.snd});
  626.             footnote({清書機能には TXF.EXE が}|
  627.                 {パスの通ったディレクトリに必要です});
  628.             select({清書機能には TXF.EXE が}|
  629.                 {パスの通ったディレクトリに必要です},
  630.                 99999,,{ 確認 },);
  631.             mopen(memono,0,21,639,240,{w});
  632.             mclose(1);
  633.             mopen(memono+1,0,241,639,459,{w});});
  634.     im({Yes});
  635. };
  636.  
  637. /*    アップ文書作成をキャンセルする    */
  638. %cancel    {
  639.     [memono]
  640.     SNDMSG({kaknin_f.snd});
  641.     footnote({作成中の文書を取消しますか？});
  642.     select({作成中の文書を取消しますか？},
  643.         99999,{footnote({});im({Yes})},
  644.         {  は  い  },    {CloseAllMemo;
  645.                 mopen(memono,0,21,639,459,{w});
  646.                 footnote({});
  647.                 im({No})},
  648.         {  いいえ  },{footnote({});im({Yes})});
  649. };
  650.  
  651. /*    実行    */
  652. var    fn    [8];
  653. var    l1    [82];
  654. var    l2    [82];
  655. var    DOCFILE    [64];
  656. var    DATAFILE[64];
  657. var    LOGFILE    [64];
  658. %memono @mlast+1;
  659. CloseAllMemo;
  660. footnote({});
  661. case    (memono>5,
  662.     {No},    {ViewLOG(LOGPATH,memono)},
  663.     {Yes},    {SNDMSG({kaknin_f.snd});
  664.         footnote({メモ5-9の内容が消去されます  よろしいですか？});
  665.         select({メモ5-9の内容が消去されます  よろしいですか？},
  666.             99999,,
  667.             { は  い },{%memono 5;ViewLOG(LOGPATH,memono)},
  668.             { いいえ },);});
  669. setcdir(DIR1);
  670.